home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 205 / 205.d81 / b.ml maker (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  62 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 6 poke53272,22:poke53280,0:poke53281,0:poke646,3
  3. 7 sys57812"mover c000+",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  4. 10 print"[147]             [209]uick [205][204] [205]aker
  5. 12 [153]"     for left$i(NULL)es (NULL)criptor and chr$raf(NULL)tar
  6. 13 print"           1. [200]i[210]es [211]criptor
  7. 14 [153]"           2. chr$raf(NULL)tar
  8. 16 print"           3. [209]uit"
  9. 18 poke198,0:wait198,1:getz$
  10. 20 ifz$="3"thenprint"[147]":goto30000
  11. 22 ifz$="1"then100
  12. 24 ifz$="2"then200
  13. 26 goto18
  14. 100 print"       [205]aking [211]criptor"
  15. 110 input"   [194]egin at";b$:b=val(b$)
  16. 120 gosub300:print"[194]eginning at:"b1"[207][203] ([217]/[206])
  17. 130 [151]198,0:[146]198,1:[161]z$:[139]z$[178]"n"[167][138]
  18. 140 [139]b1[178]50176 [167][153]"(NULL)se (NULL)len(NULL)right$(NULL)(NULL)val(NULL) $c400":[137]30000
  19. 142 [139]b1[178]52224 [167][153]"(NULL)se (NULL)len(NULL)right$(NULL)(NULL)val(NULL) $cc00":[137]30000
  20. 144 b1$[178]"scripter $c400+":b2$[178]"scripter $cc00+":
  21. 146 b3$[178]"scripter "[170]c1$
  22. 148 [159]15,dv,15,"s0:"[170]b3$:[160]15
  23. 149 [158]49152,b1$,dv,50176,b2$,dv,52224,b3$,dv,b1
  24. 150 [153]"load"b3$" len(NULL)(NULL)(NULL)(NULL)val(NULL)valstr$":[137]30000
  25. 199 [144]
  26. 200 [153]"       (NULL)aking chr$raf(NULL)tar"
  27. 210 [133]"   peekegin at";b$:b[178][197](b$)
  28. 220 [141]300:[153]"peekeginning at:"b1"(NULL)(NULL) ((NULL)/(NULL))
  29. 230 poke198,0:wait198,1:getz$:ifz$="n"thenrun
  30. 240 ifb1=49152thenprint"[213]se [199][210][193][198][211][212][193][210] [195]000":goto30000
  31. 242 ifb1=4096thenprint"[213]se [199][210][193][198][211][212][193][210] 1000":goto30000
  32. 244 b1$="grafstar c000+":b2$="grafstar 1000+":b3$="grafstar "+c1$
  33. 248 goto148
  34. 300 ifleft$(b$,1)="$"then400
  35. 310 ifb<256thenb1=b*256:goto600
  36. 320 b1=int(b/256)*256:goto600
  37. 400 b2$=mid$(b$,2,1):b3$=mid$(b$,3,1)
  38. 410 b4$=b2$:gosub500:b1=b4*16
  39. 420 b4$=b3$:gosub500:b1=(b1+b4)*256:goto600
  40. 500 ifb4$>="0"andb4$<="9"thenb4=val(b4$):return
  41. 510 ifb4$>="a"andb4$<="f"thenb4=10+asc(b4$)-65:return
  42. 520 stop
  43. 600 c=b1/256:c1=int(c/16):c2=c-c1*16
  44. 610 ifc1<10thenc1$=chr$(48+c1):goto650
  45. 612 c1$=chr$(65+c1-10)
  46. 650 ifc2<10thenc1$=c1$+chr$(48+c2):goto680
  47. 660 c1$=c1$+chr$(64+c2-10)
  48. 680 c1$=c1$+"00":return
  49. 10000 d=peek(186):n$="b.ml maker":open15,d,15,"s0:"+n$:close15:saven$,d:end
  50. 30000 print"            [[208]ress [193]ny [203]ey]
  51. 30010 [151]198,0:[146]198,1:[151]198,0
  52. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  53. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  54. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  55. 40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  56. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  57. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  58. 40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
  59. 40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  60. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  61. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  62.